home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / hdf / unix / examples.lha / examples / ann / getSDSlblstF.f < prev    next >
Encoding:
Text File  |  1991-10-08  |  1.2 KB  |  52 lines

  1. C
  2. C $Header: /pita/work/HDF/dev/RCS/test/annotations/getSDSlablistF.f,v 1.1 90/06/26 16:39:39 mfolk beta $
  3. C
  4. C $Log:    getSDSlablistF.f,v $
  5. c Revision 1.1  90/06/26  16:39:39  mfolk
  6. c Initial revision
  7. C
  8.  
  9.       program getlablist
  10.  
  11. C Program to test getlablist routine
  12. C
  13. C Mike Folk  6/26/90
  14. C
  15. C****||************************************************************
  16.  
  17.       integer dallist
  18.       integer i, nlabels, startpos
  19.       integer reflist(20)
  20.       integer DFTAG_SDG, LISTSIZE, MAXLEN
  21.       character*20  filename
  22.       character*15  labellist(20)
  23.     
  24.       parameter (DFTAG_SDG   = 700,
  25.      *           LISTSIZE    =  20,
  26.      *           MAXLEN      =  15)
  27.  
  28. C The test file being used is o2.  Substitute another if you like.
  29. C This HDF file should contain some labels for SDSs.
  30.  
  31.       filename = 'o2'
  32.  
  33.       startpos = 1
  34.       
  35.       print *, 'Labels of scientific data sets in ', filename
  36.       nlabels = dallist(filename,DFTAG_SDG, reflist,
  37.      *                         labellist, LISTSIZE, MAXLEN, startpos) 
  38.  
  39.       do 100 i=1,nlabels
  40.           print *,'  Ref number: ',reflist(i),'  Label: ',labellist(i)
  41.   100 continue
  42.  
  43.       print *
  44.       print *
  45.       print *, '+++++++++++++++++++++++++'
  46.       print *
  47.       print *
  48.       stop
  49.       end
  50.  
  51.